home *** CD-ROM | disk | FTP | other *** search
/ Technotools / Technotools (Chestnut CD-ROM)(1993).ISO / misc_pto / autil100 / siren.asi < prev    next >
Text File  |  1991-06-07  |  99b  |  9 lines
  1. again:
  2. for a=1 to 300
  3. sound a,1
  4. next a
  5. a$=inkey$
  6. if a$="" then again: else exit:
  7. exit:
  8. end
  9.